home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d8
/
mintel.arc
/
LOGON.MT
< prev
next >
Wrap
Text File
|
1989-10-12
|
779b
|
23 lines
{ logon.mt - script program to dial INFONET then logon to the network }
dial { dial INFONET - uses config modem type & number }
pause 20 { let modem and network get ready }
dopf 4 { invoke netlogon.mto }
{ see if a particular SERVICE was requested }
if service then
{ can't request a service unless the userid and password were sent }
if password then
if userid then
{ wait for service prompt }
wait 600
case '^_TO^Q'
type service SEND
failure
message 'Service prompt not received'
endwait
endif
endif
endif
end